home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / UserCode / bibtexOtherAux.tcl next >
Encoding:
Text File  |  1997-06-17  |  5.9 KB  |  187 lines  |  [TEXT/ALFA]
  1. ######################################################################
  2. # 
  3. # File:    bibtexOtherAux.tcl
  4. # 
  5. # Author:  Pierre Basso <Pierre.Basso@lim.univ-mrs.fr>
  6. # 
  7. # This utility adds a command called "bibtex file.?.aux" 
  8. # to the Typeset submenu of the LaTeX menu.  This command 
  9. # processes .aux files created by the bibunits package 
  10. # documented on pages 386--391 of _The LaTeX Companion_ by 
  11. # Goossens, Mittelbach, and Samarin [Addison-Wesley, 1994].
  12. # 
  13. # To install this utility, do the following:
  14. # 
  15. #     1) Open a .tex file.
  16. #     
  17. #     2) Pull down the Config menu and choose the command
  18. #      "Current Mode:Edit Prefs".
  19. #     
  20. #     3) Insert the line
  21. #     
  22. #          source "$HOME:Tcl:UserCode:bibtexOtherAux.tcl"
  23. #     
  24. #        into TeXPrefs.tcl.
  25. #     
  26. #     4) Restart Alpha.
  27. # 
  28. # After adding the 'source' line to TeXPrefs.tcl, the command 
  29. # will be automatically inserted into the Typeset submenu 
  30. # every time TeX mode is initialized.  To disable this utility, 
  31. # remove the 'source' line from TeXPrefs.tcl.
  32. # 
  33. ######################################################################
  34.  
  35. # Return a modified "Typeset" submenu.
  36. proc typesetSubmenu {} {
  37.     global mode
  38.     set currentWin [lindex [winNames -f] 0]
  39.     if { $currentWin == "" } {
  40.         return [minimalTypesetSubmenu]
  41.     } elseif { $mode == "TeX" } {
  42.         set currentDoc [file tail $currentWin]
  43.         # Process an untitled window:
  44.         if { [set num [winUntitled]] } {
  45.             if { $num > 1 } { set currentDoc "Untitled$num" }
  46.             # fall through
  47.         }
  48.     } else {
  49.         return [minimalTypesetSubmenu]
  50.     }
  51.     set docBasename [file rootname $currentDoc]
  52.     set projBasename $docBasename
  53.     set currentProj [isWindowInFileset $currentWin "tex"]
  54.     if {    $currentProj !=    "" } {
  55.         set currentDoc [file tail [texFilesetBaseName $currentProj]]
  56.         set docBasename [file rootname $currentDoc]
  57.     }
  58.     # Determine which menu items are dimmed:
  59.     foreach ext {DVI PS AUX IDX Selection} { set prefix$ext "" }
  60. #     if { [findAuxiliaryFile DVI] == "" } {
  61. #         set prefixDVI "("
  62. #     }
  63. #     if { [findAuxiliaryFile PS] == "" } {
  64. #         set prefixPS "("
  65. #     }
  66. #     if { [findAuxiliaryFile AUX] == "" } {
  67. #         set prefixAUX "("
  68. #     }
  69. #     if { [findAuxiliaryFile IDX] == "" } {
  70. #         set prefixIDX "("
  71. #     }
  72. #     if { ![isSelection] } {
  73. #         set prefixSelection "("
  74. #     }
  75.     return [list menu -M TeX -n Typeset -m -p typesetSubmenuFilter [list \
  76.         [list /TTypeset $currentDoc] \
  77.         [list <U<O/V${prefixDVI}View "$docBasename\.dvi"] \
  78.         [list <U<O/P${prefixDVI}Print "$docBasename\.dvi"] \
  79.         "(-" \
  80.         {<U<O/TTypeset Clipboard} \
  81.         [list ${prefixSelection}Typeset Selection] \
  82.         "(-" \
  83.         [list <S${prefixPS}Open "$docBasename\.ps"] \
  84.         [list <S${prefixDVI}dvips "$docBasename\.dvi"] \
  85.         [list ${prefixPS}View "$docBasename\.ps"] \
  86.         [list ${prefixPS}Print "$docBasename\.ps"] \
  87.         "(-" \
  88.         [list <SOpen "$docBasename\.bbl"] \
  89.         [list <S${prefixAUX}bibtex "$docBasename\.aux"] \
  90.         [list <E${prefixAUX}bibtex "$docBasename\.\?\.aux"] \
  91.         [list <SOpen "$docBasename\.ind"] \
  92.         [list <S${prefixIDX}makeindex "$docBasename\.idx"] \
  93.         "(-" \
  94.         [typesetOtherFilesSubmenu $docBasename $projBasename] \
  95.         "(-" \
  96.         {Remove Auxiliary Files…} \
  97.         {Remove Temporary Files} \
  98.         ]
  99.     ]
  100. }
  101.  
  102. proc typesetSubmenuFilter {submenu item} {
  103.     switch -regexp $item {
  104.         {Typeset Selection}  {set func "typesetSelection"}
  105.         {Typeset Clipboard}  {set func "typesetClipboard"}
  106.         "Typeset.*"  {set func "typeset"}
  107.         "View.*\.dvi$"  {set func {doTypesetCommand view DVI}}
  108.         "Print.*\.dvi$"  {set func {doTypesetCommand print DVI}}
  109.         "dvips.*\.dvi$"  {set func {doTypesetCommand dvips DVI}}
  110.         "View.*\.ps$"  {set func {doTypesetCommand view PS}}
  111.         "Print.*\.ps$"  {set func {doTypesetCommand print PS}}
  112.         {bibtex.*\.\?\.aux$}  {set func "bibtexOtherAuxiliary"}
  113.         "bibtex.*"  {set func {doTypesetCommand bibtex AUX}}
  114.         "makeindex.*"  {set func {doTypesetCommand makeindex IDX}}
  115.         "Open.*\.ps$"  {set func {doTypesetCommand open PS}}
  116.         "Open.*\.bbl$"  {set func {doTypesetCommand open BBL}}
  117.         "Open.*\.ind$"  {set func {doTypesetCommand open IND}}
  118.         "Open.*\.log$"  {set func {doTypesetCommand open LOG}}
  119.         "Open.*\.aux$"  {set func {doTypesetCommand open AUX 1}}
  120.         "Open.*\.aux $"  {set func {doTypesetCommand open AUX}}
  121.         "Open.*\.toc$"  {set func {doTypesetCommand open TOC}}
  122.         "Open.*\.lof$"  {set func {doTypesetCommand open LOF}}
  123.         "Open.*\.lot$"  {set func {doTypesetCommand open LOT}}
  124.         "Open.*\.idx$"  {set func {doTypesetCommand open IDX}}
  125.         "Open.*\.blg$"  {set func {doTypesetCommand open BLG}}
  126.         "Open.*\.ilg$"  {set func {doTypesetCommand open ILG}}
  127.         {Open Any TeX File}  {set func "openAnyTeXFile"}
  128.         {Remove Auxiliary Files}  {set func "removeAuxiliaryFiles"}
  129.         {Remove Temporary Files}  {set func "removeTemporaryFiles"}
  130.         default {set func $item}
  131.     }
  132.     eval $func
  133. }
  134.  
  135. proc bibtexOtherAuxiliary {} {
  136.  
  137.     # Test if many bibdata files
  138.     set auxiliaryfile [lindex [winNames -f] 0]
  139.     set rootauxiliaryfile [file rootname $auxiliaryfile]
  140.     set auxiliaryfile  $rootauxiliaryfile
  141.     append auxiliaryfile ".aux"
  142.     if {[file exists $auxiliaryfile] == 0} {
  143.         beep
  144.         alertnote "No AUX file found!"
  145.         return
  146.     }
  147.     set idaux [open $auxiliaryfile r]
  148.     set count -1
  149.     while {$count == -1} {
  150.         set testeof [gets $idaux buffer]
  151.         if {$testeof == -1} then {
  152.             beep
  153.             alertnote "No bibdata file found!"
  154.             return
  155.         }
  156.         set count [string first "\\bibdata" $buffer]
  157.         if {$count >= 0} then {
  158.             set bibdata [split $buffer ,]
  159.             set len [llength $bibdata]
  160.             if {$len == 1} then {
  161.                 beep
  162.                 alertnote "No other AUX files found!"
  163.                 return
  164.             }
  165.         }
  166.   }
  167.  
  168.     # It exists many bibdata and .aux files
  169.     # Building the list of all the .aux files
  170.     
  171.     set auxiliaryfile [lindex [winNames -f] 0]
  172.     set dirauxiliaryfile [file dirname $auxiliaryfile]
  173.     set rootauxiliaryfile [file rootname $auxiliaryfile]
  174.     set listauxiliaryfile [glob -nocomplain "$rootauxiliaryfile.?.aux"]
  175.     set listauxiliaryfile [map "file tail" $listauxiliaryfile]
  176.     
  177.     # End of building the list of .aux files
  178.     #
  179.     set selectauxiliary [listpick -p "bibtex:" [lsort $listauxiliaryfile] ]
  180.     set filename $dirauxiliaryfile
  181.     append filename ":$selectauxiliary"
  182.     bibtexAUXFile $filename
  183. }
  184.  
  185. # Load the new Typeset submenu:
  186. eval [typesetSubmenu]
  187.